﻿

Public Class cQuestTemplate
    Private _Row As SortedList(Of String, sMysqlItem)

    Public Sub New(conn As MySQL, sql As String)
        If IsNothing(conn) Then Throw New ArgumentNullException("cQuestTemplate: conn is nothing")
        If String.IsNullOrWhiteSpace(sql) Then Throw New ArgumentOutOfRangeException("cQuestTemplate: sql string is empty")
        _Row = conn.ReadRow(sql)
    End Sub
    Public Sub New(conn As MySQL, id As UInt32)
        If IsNothing(conn) Then Throw New ArgumentNullException("cQuestTemplate: conn is nothing")
        Dim sql As String = "SELECT * FROM quest_template WHERE id=" & id & ";"
        _Row = conn.ReadRow(sql)
    End Sub

    Public Property Id As UInt32
        Get
            Return _Row.Item("Id").Value
        End Get
        Set(value As UInt32)
            Stop
        End Set
    End Property



End Class
